home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / pas_all.zip / TI328.ASC < prev    next >
Text File  |  1992-08-12  |  3KB  |  133 lines
  1.  
  2.  
  3.  
  4.  
  5.  
  6.  
  7.  
  8.  
  9.   PRODUCT : TURBO PASCAL DATABASE TOOLBOX              NUMBER : 328
  10.   VERSION : 1.21
  11.        OS : All
  12.      DATE : July 28, 1986                                PAGE : 1/2
  13.     TITLE : TBDEMO UPDATE
  14.  
  15.  
  16.  
  17.  
  18.   The following modifications enable TBDEMO to add and delete
  19.   records correctly. Note that these code changes will update your
  20.   version of the Turbo Pascal Database Toolbox to version 1.21A.
  21.   Please update the version numbers at the top of each toolbox modu
  22.  
  23.   1.  Make a backup copy of the file TBDEMO.PAS.
  24.   2.  Load the file TBDEMO.PAS into the Turbo Pascal editor.
  25.   3.  In the procedure AddCustomer, change the following:
  26.           .
  27.           .
  28.           .
  29.           Response        : char;
  30.         begin
  31.           repeat
  32.             InputInformation(Customer);
  33.             FindKey(CodeIndx,RecordNumber,Customer.CustCode);
  34.             If not OK then
  35.           .
  36.           .
  37.           .
  38.         Change to:
  39.           .
  40.           .
  41.           .
  42.           Response        : char;
  43.           TempCode        : string[15];      { Ver. 1.21A Addition }
  44.         begin
  45.           repeat
  46.             InputInformation(Customer);
  47.             TempCode := Customer.CustCode;   { Ver. 1.21A Addition }
  48.             FindKey(CodeIndx,RecordNumber,TempCode);
  49.                                              { Ver. 1.21A Modification }
  50.             If not OK then
  51.           .
  52.           .
  53.           .
  54.   4.  In the procedure DeleteCustomer, change the following:
  55.           .
  56.           .
  57.           .
  58.         Write(' Enter code of customer to be deleted: ');
  59.         Readln(CustomerCode);
  60.         FindKey(CodeIndx,RecordNumber,Customer.CustCode);
  61.  
  62.  
  63.  
  64.  
  65.  
  66.  
  67.  
  68.  
  69.  
  70.  
  71.  
  72.  
  73.  
  74.  
  75.   PRODUCT : TURBO PASCAL DATABASE TOOLBOX              NUMBER : 328
  76.   VERSION : 1.21
  77.        OS : All
  78.      DATE : July 28, 1986                                PAGE : 2/2
  79.     TITLE : TBDEMO UPDATE
  80.  
  81.  
  82.  
  83.  
  84.         if OK then
  85.         begin
  86.           DeleteKey(CodeIndx,RecordNumber,Customer.CustCode);
  87.           DeleteRec(CustFile,RecordNumber);
  88.           .
  89.           .
  90.           .
  91.         Change to:
  92.           .
  93.           .
  94.           .
  95.         Write(' Enter code of customer to be deleted: ');
  96.         Readln(CustomerCode);
  97.         FindKey(CodeIndx,RecordNumber,CustomerCode);
  98.                                          { Ver. 1.21A Modification }
  99.         if OK then
  100.         begin
  101.           DeleteKey(CodeIndx,RecordNumber,CustomerCode);
  102.                                          { Ver. 1.21A Modification }
  103.           DeleteRec(CustFile,RecordNumber);
  104.           .
  105.           .
  106.           .
  107.   5.  At the top of the file update the modification date
  108.   6.  Save the file.
  109.  
  110.   DISCLAIMER: You have the right to use this technical information
  111.   subject to the terms of the No-Nonsense License Statement that
  112.   you received with the Borland product to which this information
  113.   pertains.
  114.  
  115.  
  116.  
  117.  
  118.  
  119.  
  120.  
  121.  
  122.  
  123.  
  124.  
  125.  
  126.  
  127.  
  128.  
  129.  
  130.  
  131.  
  132.  
  133.